10 IFPEEK(50307)=120THENPOKE50257,0
100 REM ***************
110 REM C O L O R  CODE
120 REM ***************
130 REM JUNI 1985 BY
140 REM ***************
150 REM WOLFGANG GACHOT
160 REM
170 REM
180 REM ***************
190 REM INITIALISIERUNG
200 POKE788,52
205 FORI=0TO23:POKE54272+I,0:NEXT
210 DIMFX(14),FV(14)
220 DATA 103,17,237,21,20,26,109,16,178,20,157,24,129,15,137,19,59,23,109,16
230 DATA 178,20,157,24
240 TR$=CHR$(144)+"[214] ":RF$=CHR$(5)+"[214] "
250 CS=58640:BS=1119:FS=55391:VIC=53248:SID=54272:H=0:AD=1065:FL=0
260 GOSUB 3540:REM ALLE STIMMEN AUS
270 POKESID+24,15 :REM LAUTSTAERKE EINSTELLEN
280 FORI=5 TO 19STEP7 :REM ADSR EINSTELLEN
290 POKESID+I,16:POKESID+I+1,200
300 NEXT
310 POKE53280,15:POKE53281,15:PRINTCHR$(142);CHR$(8);CHR$(151) :REM FARBEN
320 GOSUB 2430:REM TITELBILD
330 H=0:FW$(1)=CHR$(144)+CHR$(18)+" S "+CHR$(146)+" SCHWARZ"
340 FW$(2)=CHR$(154)+CHR$(18)+" B "+CHR$(146)+" BLAU"
350 FW$(3)=CHR$(150)+CHR$(18)+" R "+CHR$(146)+" ROT"
360 FW$(4)=CHR$(129)+CHR$(18)+" O "+CHR$(146)+" ORANGE"
370 FW$(5)=CHR$(5)+CHR$(18)+" W "+CHR$(146)+" WEISS"
380 FW$(6)=CHR$(156)+CHR$(18)+" V "+CHR$(146)+" VIOLETT"
390 FW$(7)=CHR$(158)+CHR$(18)+" G "+CHR$(146)+" GELB"
400 REM SPRITE INITIALISIEREN
410 FORI=0TO62:POKE704+I,0:NEXT
420 FORI=1TO24:READDW:NEXT
430 FORI=0TO24STEP3:READDA:POKE704+I,DA:NEXT
440 DATA 24,60,126,219,24,24,24,24,24
450 POKE2040,11:POKEVIC+39,1
460 POKEVIC,160:POKEVIC+1,90
470 GOSUB3540
480 IF FL THEN GOSUB2890:GOTO520
490 GOSUB2830:REM ABFRAGE AUF ANLEITUNG UND SCHWIERIGKEITSGRAD
500 REM*********************************
510 REM SPIELFELDAUFBAU
520 PRINT CHR$(147)
530 POKEAD,3   :POKEAD+SID,14  :REM C
540 POKEAD+2,15:POKEAD+SID+2,1 :REM O
550 POKEAD+4,12:POKEAD+SID+4,10:REM L
560 POKEAD+6,15:POKEAD+SID+6,7 :REM O
570 POKEAD+8,18:POKEAD+SID+8,4 :REM R
580 PRINTCHR$(151)
590 POKE211,2:POKE214,3:SYSCS:PRINT"C O D E"
600 POKE211,2:POKE214,6:SYSCS:PRINT"STUFE";SG+1
610 FORI=1TO7
620 POKE211,1:POKE214,I*2+8:SYS CS
630 PRINT FW$(I)
640 NEXT
650 PRINTCHR$(151);CHR$(19);
660 PRINTTAB(16)"[213][195][178][195][178][195][178][195][178][195][201]"
670 PRINTTAB(16)"[194]?[194]?[194]?[194]?[194]?[194]"
680 PRINTTAB(16)"[171][195][177][195][177][195][177][195][177][195][179]"
690 PRINTTAB(16)"[171][195][178][195][178][195][178][195][178][195][179]"
700 FORI=1TO 9
710 PRINTTAB(16)"[194] [194][160][194][160][194][160][194][160][194]"
720 PRINTTAB(16)"[171][195][219][195][219][195][219][195][219][195][179]"
730 NEXT
740 PRINTTAB(16)"[194] [194][160][194][160][194][160][194][160][194]"
750 PRINTTAB(16)"[202][195][177][195][177][195][177][195][177][195][203]"
760 REM*********************************
770 REM CODE ZUFAELLIG FESTLEGEN
780 FORI=1TO5:X(I)=3
790 Z=INT(RND(1)*9):IFZ=3ORZ=5THEN790
800 IFZ=2THENZ=10
810 IFZ=6THEN Z=14
820 J=1
830 IFZ=X(J)THEN FL=FL+1
840 IFFL>SGTHEN FL=FL-1:GOTO 790
850 IFJ<ITHEN J=J+1:GOTO830
860 X(I)=Z
870 NEXT
880 REM*********************************
890 REM HAUPTSCHLEIFE
900 VE=0 :REM VERSUCHSZAEHLER
910 EZ=0 :REM EINGABEZAEHLER
920 VE=VE+1 : IFVE>10 THEN 2340
930 EZ=EZ+1+(EZ>4)
940 POKEVIC+1,74+VE*16:POKEVIC,144+EZ*16
950 POKEVIC+21,1:REM SPRITE EIN
960 POKE198,0:WAIT 198,1
970 GETT$:REM TASTATURABFRAGE
980 IFT$="S"THENFC= 0:GOTO1110
990 IFT$="W"THENFC= 1:GOTO1110
1000 IFT$="B"THENFC=14:GOTO1110
1010 IFT$="R"THENFC=10:GOTO1110
1020 IFT$="O"THENFC= 8:GOTO1110
1030 IFT$="V"THENFC= 4:GOTO1110
1040 IFT$="G"THENFC= 7:GOTO1110
1050 IFT$="H"THEN H=H+1+(H>4):GOSUB2280
1060 IFT$=CHR$(157)THEN EZ=EZ-1-(EZ<2):GOTO940:REM CURSOR LEFT
1070 IFT$=CHR$(29)THEN EZ=EZ+1+(EZ>4):GOTO940:REM CURSOR RIGHT
1080 IFT$=CHR$(13) THEN 1160:REM RETURN
1100 GOTO970
1110 POKE BS+VE*80+EZ*2,160 :REM ZEICHEN UND
1120 POKE FS+VE*80+EZ*2,FC  :REM FARBE SETZEN
1130 GOTO930
1140 REM********************************
1150 REM AUSWERTUNG DES CODES
1160 POKEVIC+21,0 :REM SPRITE AUS
1170 POKESID+4,17 :REM STIMME EIN
1180 FORI=1TO5
1190 POKESID,157:POKESID+1,24
1200 FORW=1TO20 :NEXTW
1210 V(I)=PEEK(FS+VE*80+I*2)AND 15
1220 POKESID,20:POKESID+1,26
1230 FORW=1TO20 :NEXTW
1240 NEXT
1250 POKESID,157:POKESID+1,24
1260 FORW=1TO 40:NEXT
1270 POKESID+4,0
1280 TR=0:RF=0
1290 FORI=0TO14:FX(I)=0:FV(I)=0
1300 FORJ=1TO5
1310 IFX(J)=I THEN FX(I)=FX(I)+1
1320 IFV(J)=I THEN FV(I)=FV(I)+1
1330 NEXTJ,I
1340 FORI=1TO5
1350 IFX(I)=V(I) THEN TR=TR+1
1360 NEXT
1370 IF TR=5 THEN 1710
1380 FORI=0TO14
1390 IFFX(I)<FV(I)THEN FV(I)=FX(I)
1400 RF=RF+FV(I)
1410 NEXT
1420 RF=RF-TR
1430 REM ANZEIGE DER TREFFER
1440 POKE214,2+VE*2:POKE211,28:SYS CS
1450 POKESID,109:POKESID+1,16
1460 IFTR=0 THEN 1540:REM KEIN TREFFER
1470 FORI=1TOTR
1480 POKESID+4,17
1490 PRINTTR$;
1500 FORW=1TO150:NEXTW
1510 POKESID+4,0
1520 FORW=1TO100:NEXT
1530 NEXTI
1540 IFRF=0 THEN 1630:REM KEINE RICHTIGE FARBE
1550 FORI=1TORF
1560 POKESID+4,17
1570 PRINTRF$;
1580 FORW=1TO150:NEXTW
1590 POKESID+4,0
1600 FORW=1TO100:NEXTW
1610 NEXTI
1620 GOTO 910
1630 IFTR THEN 1690
1640 POKESID,55:POKESID+1,8
1650 POKESID+4,17
1660 PRINTCHR$(151);"[195]"
1670 FORW=1TO200:NEXTW
1680 POKESID+4,0
1690 GOTO 910
1700 REM********************************
1710 POKEVIC+21,0:GOSUB3290
1720 FORWI=1TO4
1730 POKESID,109 :POKESID+1,16
1740 POKE214,2+VE*2:POKE211,28:SYS CS
1750 PRINT"          "
1760 FORW=1TO300:NEXTW
1770 POKESID,219 :POKESID+1,32
1780 POKE214,2+VE*2:POKE211,28:SYS CS
1790 PRINTCHR$(144);"RICHTIG!!!"
1800 FORW=1TO300:NEXTW
1810 NEXTWI
1820 GOSUB 3540
1830 GOSUB2110:REM CODE ZEIGEN
1840 FORW=1TO1000:NEXTW
1850 REM********************************
1860 REM SCHLUSSMELODIE
1880 POKESID+4,17
1890 POKESID,157:POKESID+1,24
1900 FORW=1TO200:NEXT
1910 POKESID, 20:POKESID+1,26
1920 FORW=1TO200:NEXT
1930 POKESID,160:POKESID+1,27
1940 FORW=1TO200:NEXT
1950 POKESID,3:POKESID+1,31
1960 FORW=1TO200:NEXT
1970 POKESID,219:POKESID+1,32
1980 POKESID+7,178:POKESID+8,20
1990 POKESID+14,157:POKESID+15,24
2000 POKESID+11,17:POKESID+18,17
2020 FORW=1TO900:NEXT
2030 GOSUB3540
2040 :
2050 POKE211,2:POKE214,24:SYSCS
2060 PRINT"TASTE DRUECKEN[145]"
2070 GETT$:IFT$=""THEN 2070
2080 FL=1:RESTORE:GOTO 330:REM NEUSTART
2090 SYS 65409:POKE788,49:END:REM PROGRAMMENDE
2100 REM********************************
2110 REM CODE ZEIGEN
2120 POKESID,109:POKESID+1,16
2130 POKEVIC,160:POKEVIC+1,66
2140 POKEVIC+21,1
2150 FORI=1TO5
2160 POKESID+4,17
2170 POKEVIC,144+I*16
2180 POKE BS-40+I*2,160
2190 POKE FS-40+I*2,X(I)
2200 FORW=1TO200:NEXT
2210 POKESID+4,0
2220 FORW=1TO150:NEXT
2230 NEXT
2240 POKEVIC+21,0
2250 RETURN
2260 REM********************************
2270 REM HILFSTASTE CODE ZEIGEN
2280 IFH>=(VE/2)THENH=H-1:GOTO2310
2290 POKE BS-40+H*2,160
2300 POKE FS-40+H*2,X(H)
2310 RETURN
2320 REM********************************
2330 REM CODE NICHT GEFUNDEN
2340 FORW=1TO200:NEXTW
2350 GOSUB2110
2360 FORW=1TO200:NEXTW
2370 POKE211,28:POKE214,1:SYS CS
2380 PRINTCHR$(151);"SCHADE!"
2390 FORW=1TO2000:NEXTW
2400 GOTO2040
2410 REM********************************
2420 REM TITELBILD
2430 RESTORE:PRINTCHR$(147)
2440 FORI=4TO18STEP 7
2450 POKESID+I,17
2460 FORK=1TO3
2470 FOR J=1TO4
2480 READ FR:POKESID,FR
2490 READ FR:POKESID+1,FR
2500 READ FR:POKESID+7,FR
2510 READ FR:POKESID+8,FR
2520 READ FR:POKESID+14,FR
2530 READ FR:POKESID+15,FR
2540 A=INT(RND(1)*1000):FW=INT(RND(1)*15)
2550 POKE55296+A,FW :POKE1024+A,63
2560 FORW=1TO15:NEXTW
2570 NEXTJ
2580 RESTORE
2590 NEXTK
2600 NEXTI
2610 POKESID,109
2620 POKESID+1,16
2630 POKESID+7,178
2640 POKESID+8,20
2650 POKESID+14,157
2660 POKESID+15,24
2670 POKE211,0:POKE214,7:SYSCS
2680 PRINTTAB(7)"[154][169]  [146]  [169]  [223][146]  [150] [146]    [158][169]  [223][146]  [156]   [223][146]"
2690 PRINTTAB(7)"[154] [146]     [146]   [146]  [150] [146]    [158] [146]   [146]  [156] [146]   [146]"
2700 PRINTTAB(7)"[154] [146]     [146]   [146]  [150] [146]    [158] [146]   [146]  [156]   [146][169]"
2710 PRINTTAB(7)"[154] [146]     [146]   [146]  [150] [146]    [158] [146]   [146]  [156] [146]  [146][187]"
2720 PRINTTAB(7)"[154][223]  [146]  [223]  [146][169]  [150]   [146]  [158][223]  [146][169]  [156] [146] [188] [146]"
2730 PRINT:PRINT:PRINTCHR$(151)
2740 PRINTTAB(10)"[169]  [146]  [169]  [223][146]     [223][146]     [146]"
2750 PRINTTAB(10)" [146]     [146]   [146]   [146]   [146]   [146]"
2760 PRINTTAB(10)" [146]     [146]   [146]   [146]   [146]    [146]"
2770 PRINTTAB(10)" [146]     [146]   [146]   [146]   [146]   [146]"
2780 PRINTTAB(10)"[223]  [146]  [223]  [146][169]     [146][169]     [146]"
2790 FORW=0TO 700:NEXTW
2800 RETURN
2810 REM********************************
2820 REM ABFRAGE AUF ANLEITUNG UND SCHWIERIGKEITSGRAD
2830 REM
2890 PRINTCHR$(147)
2892 POKE211,3:POKE214,5:SYSCS
2894 PRINT"BITTE WAEHLEN SIE:"
2900 POKE211,3:POKE214,10:SYS CS
2910 PRINT"SCHWIERIGKEITSGRAD (1 ODER 2) ?"
2920 POKE198,0
2930 GETT$:SG=VAL(T$)-1
2940 IFSG<0ORSG>1 THEN 2930
2950 RETURN
3270 REM********************************
3280 REM MELODIE BEI GEFUNDENEM CODE
3290 RESTORE
3300 FORI=4TO18 STEP7
3310 POKESID+I,17
3320 FORK=1TO3
3330 FOR J=1TO4
3340 READ FR:POKESID,FR
3350 READ FR:POKESID+1,FR
3360 READ FR:POKESID+7,FR
3370 READ FR:POKESID+8,FR
3380 READ FR:POKESID+14,FR
3390 READ FR:POKESID+15,FR
3400 FORW=1TO30:NEXTW
3410 NEXTJ
3420 RESTORE
3430 NEXTK
3440 NEXTI
3450 POKESID,109
3460 POKESID+1,16
3470 POKESID+7,178
3480 POKESID+8,20
3490 POKESID+14,157
3500 POKESID+15,24
3510 RETURN
3520 REM********************************
3530 REM ALLE STIMMEN AUS
3540 POKESID+4,0:POKESID+11,0:POKESID+18,0:RETURN